home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / WINDOWS / EZNET.ZIP / DEMO.ZIP / TASK.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-10-27  |  3.5 KB  |  121 lines
  1. VERSION 4.00
  2. Begin VB.Form frmTask 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "Actor"
  7.    ClientHeight    =   1710
  8.    ClientLeft      =   2115
  9.    ClientTop       =   2385
  10.    ClientWidth     =   5820
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   1
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   2115
  22.    Left            =   2055
  23.    LinkTopic       =   "Form1"
  24.    ScaleHeight     =   1710
  25.    ScaleWidth      =   5820
  26.    Top             =   2040
  27.    Width           =   5940
  28.    Begin VB.TextBox Text2 
  29.       Appearance      =   0  'Flat
  30.       Height          =   375
  31.       Left            =   1650
  32.       TabIndex        =   1
  33.       Top             =   780
  34.       Width           =   2535
  35.    End
  36.    Begin VB.CommandButton Command2 
  37.       Appearance      =   0  'Flat
  38.       BackColor       =   &H80000005&
  39.       Caption         =   "&Cancel"
  40.       Height          =   405
  41.       Left            =   4560
  42.       TabIndex        =   3
  43.       Top             =   750
  44.       Width           =   955
  45.    End
  46.    Begin VB.CommandButton Command1 
  47.       Appearance      =   0  'Flat
  48.       BackColor       =   &H80000005&
  49.       Caption         =   "&Ok"
  50.       Default         =   -1  'True
  51.       Height          =   405
  52.       Left            =   4560
  53.       TabIndex        =   2
  54.       Top             =   300
  55.       Width           =   955
  56.    End
  57.    Begin VB.TextBox Text1 
  58.       Appearance      =   0  'Flat
  59.       Height          =   375
  60.       Left            =   1650
  61.       TabIndex        =   0
  62.       Top             =   300
  63.       Width           =   2535
  64.    End
  65.    Begin VB.Label Label2 
  66.       Appearance      =   0  'Flat
  67.       BackColor       =   &H00C0C0C0&
  68.       Caption         =   "Role name:"
  69.       BeginProperty Font 
  70.          name            =   "MS Sans Serif"
  71.          charset         =   0
  72.          weight          =   400
  73.          size            =   9.75
  74.          underline       =   0   'False
  75.          italic          =   0   'False
  76.          strikethrough   =   0   'False
  77.       EndProperty
  78.       ForeColor       =   &H80000008&
  79.       Height          =   345
  80.       Left            =   240
  81.       TabIndex        =   5
  82.       Top             =   840
  83.       Width           =   1215
  84.    End
  85.    Begin VB.Label Label1 
  86.       Appearance      =   0  'Flat
  87.       BackColor       =   &H00C0C0C0&
  88.       Caption         =   "Actor name:"
  89.       BeginProperty Font 
  90.          name            =   "MS Sans Serif"
  91.          charset         =   0
  92.          weight          =   400
  93.          size            =   9.75
  94.          underline       =   0   'False
  95.          italic          =   0   'False
  96.          strikethrough   =   0   'False
  97.       EndProperty
  98.       ForeColor       =   &H80000008&
  99.       Height          =   315
  100.       Left            =   240
  101.       TabIndex        =   4
  102.       Top             =   360
  103.       Width           =   1245
  104.    End
  105. Attribute VB_Name = "frmTask"
  106. Attribute VB_Creatable = False
  107. Attribute VB_Exposed = False
  108. Option Explicit
  109. Private Sub Command1_Click()
  110.   Actor = Text1.Text
  111.   Role = Text2.Text
  112.   Unload Me
  113. End Sub
  114. Private Sub Command2_Click()
  115.   Unload Me
  116. End Sub
  117. Private Sub Form_Load()
  118.   Text1.Text = Actor
  119.   Text2.Text = Role
  120. End Sub
  121.